unit Class_P1;

interface

uses
  SysUtils, Classes, DataEngine;

type
  TP1 = class(TBaseClass)
  public
    YUE: Integer;
    ZPDH: Integer;
    LB: string;
    PDH: Integer;
    BH: Integer;
    RI: Integer;
    ZY: string;
    KMH: string;
    WBZL: string;
    JD: string;
    JE: Extended;
    WBJE: Extended;
    SL: Extended;
    DZH: string;
    DZBZ: string;
    KHBM: string;
    BMBM: string;
    ZYBM: string;
    JSFSBM: string;
    YWBH: string;
    FDATE: string;
    CASHID: string;
    CURMONTH: Integer;
    EXCHRATE: Extended;
    UNITPRICE: Extended;
    PZXZ: string;
  public
    procedure CopyIt(var Result: TP1); overload;
    function CopyIt: TP1; overload;

    destructor Destroy; override;
  end;

implementation

{ TP2 }

function TP1.CopyIt: TP1;
begin
  Result := nil;
  CopyIt(Result);
end;

procedure TP1.CopyIt(var Result: TP1);
begin
  if Result = nil then Result := TP1.Create;
  Result.YUE := YUE;
  Result.ZPDH := ZPDH;
  Result.LB := LB;
  Result.PDH := PDH;
  Result.BH := BH;
  Result.RI := RI;
  Result.ZY := ZY;
  Result.KMH := KMH;
  Result.WBZL := WBZL;
  Result.JD := JD;
  Result.JE := JE;
  Result.WBJE := WBJE;
  Result.SL := SL;
  Result.DZH := DZH;
  Result.DZBZ := DZBZ;
  Result.KHBM := KHBM;
  Result.BMBM := BMBM;
  Result.ZYBM := ZYBM;
  Result.JSFSBM := JSFSBM;
  Result.YWBH := YWBH;
  Result.FDATE := FDATE;
  Result.CASHID := CASHID;
  Result.CURMONTH := CURMONTH;
  Result.EXCHRATE := EXCHRATE;
  Result.UNITPRICE := UNITPRICE;
  Result.PZXZ := PZXZ;
end;

destructor TP1.Destroy;
begin

  inherited;
end;

end.
